AFID$CS<-as.character(substr(AFID$DDBID,1,5))
  m1 <- ggplot(AFID, aes(x = Date2,y=AFID))+  geom_point(aes(colour = DDBID))  + facet_grid(CS~.)+ ggtitle("AFID TREND OVER TIME2")
  # Temp Out
 # multiplot(m1, cols=1)
  ggplotly(m1)